home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / opbonus.arc / POPDOS.ARC / POPDOS.PAS < prev   
Pascal/Delphi Source File  |  1991-03-20  |  840b  |  24 lines
  1. {$S-,R-,I-,V-,F-,B-,A-,N-,E-,O-}
  2. {$M 4096,0,655360}
  3.  
  4. {*********************************************************}
  5. {*                    POPDOS.PAS 1.03                    *}
  6. {*        Copyright (c) TurboPower Software 1990.        *}
  7. {*                 All rights reserved.                  *}
  8. {*********************************************************}
  9.  
  10. program PopDos;
  11. uses
  12.   PdMain,                         {Order of units is critical here}
  13.   OpExec,
  14.   OpSwap;
  15. begin
  16.   PdMain.ExecDosSwap := OpExec.ExecDosSwap;
  17.   PdMain.ExecUseEmsIfAvailableP := @OpExec.UseEmsIfAvailable;
  18.   PdMain.ExecUseXmsIfAvailableP := @OpExec.UseXmsIfAvailable; {!!.03}
  19.   PdMain.ExecUseEmsOverXmsP := @OpExec.UseEmsOverXms;         {!!.03}
  20.   PdMain.ExecHideSwapFileP := @OpExec.HideSwapFile;
  21.   OpExec.SetSwapMsgOn(False);
  22.   PopDosInit;
  23. end.
  24.